DECLARE SUB ganzemapzeichnen (gmzM AS INTEGER, gmzY AS INTEGER)

'$INCLUDE: 'DIRECTQB.BI'

TYPE tMap
 tile AS INTEGER
 insicht AS INTEGER
 gesehen AS INTEGER
END TYPE

TYPE tInterface
 xMap AS INTEGER
 yMap AS INTEGER
END TYPE

DIM SHARED map(1 TO 80, 1 TO 80) AS tMap
DIM interface AS tInterface


IF DQBinit(2, 0, 0) THEN DQBclose: PRINT DQBerror: END
         
DQBinitVGA     'VGAmodus wird initialisiert

interface.xMap = 0
interface.yMap = 0

ganzemapzeichnen interface.xMap, interface.yMap


SLEEP
DQBclose


REM REM $DYNAMIC
SUB ganzemapzeichnen (gmzM AS INTEGER, gmzY AS INTEGER)

FOR y = 1 TO 24
 FOR x = 0 TO 39
  DQBprint 2, "x", x * 8, y * 8, 4
 NEXT x
NEXT y

DQBcopyLayer 2, VIDEO
'DQBclearLayer VIDEO        


END SUB

